<script>on mouseUp-- Requires handler: updateDisplay-- last word of btn name is userLevelupdateDisplay (last word of short name of me) -- in card scriptend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>30</left>
<top>168</top>
<right>133</right>
<bottom>192</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>userlevel 2</name>
<script>on mouseUp-- Requires handler: updateDisplay-- last word of btn name is userLevelupdateDisplay (last word of short name of me) -- in card scriptend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>30</left>
<top>140</top>
<right>133</right>
<bottom>165</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>userlevel 3</name>
<script>on mouseUp-- Requires handler: updateDisplay-- last word of btn name is userLevelupdateDisplay (last word of short name of me) -- in card scriptend mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>202</left>
<top>39</top>
<right>240</right>
<bottom>61</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>user level</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>154</left>
<top>145</top>
<right>254</right>
<bottom>164</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Power Keys</name>
<script>on mouseUpset powerKeys to the hilite of meend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>154</left>
<top>171</top>
<right>270</right>
<bottom>190</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Arrow Keys in Text</name>
<script>on mouseUpset textArrows to the hilite of meend mouseUp</script>
</part>
<part>
<id>62</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>107</left>
<top>76</top>
<right>284</right>
<bottom>100</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>User Name</name>
<script>on closeFieldglobal UserNameput me into UserNameend closeFieldon exitFieldglobal UserNameput me into UserNameend exitField</script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>14</left>
<top>140</top>
<right>44</right>
<bottom>165</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>27969</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Arrow</name>
<script>on mouseDown-- Requires handler: updateDisplay-- this handler operates the arrow button like a slider controlset cursor to arrow--put item 1 of the loc of me into slideHorz -- horz remains constantput item 2 of the loc of cd btn id 6 into slideTop -- UserLevel 3put item 2 of the loc of cd btn id 4 into slideBottom -- UserLevel 1put top of cd btn id 6 into levelTop -- UserLevel 3--repeat while the mouse is downset loc of me to ¬(slideHorz&","&(max(slideTop,min(slideBottom,the mouseV))))end repeat---- calculate userLevel based on loc of sliderput ((78 - (item 2 of loc of me - levelTop)) div 26) +1 into curLevelupdateDisplay curLevel -- show changesend mouseDown</script>
</part>
<content>
<layer>background</layer>
<id>24</id>
<text>Preferences</text>
</content>
<content>
<layer>card</layer>
<id>19</id>
<text>3</text>
</content>
<name>user preferences</name>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Script of Card: User PreferencesTHE MESSAGE HANDLERS IN THIS SCRIPT:openCard,updateDisplay∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on openCard-- Requires handler: updateDisplayif the userLevel ≠ card field "User Level" -- hidden on this cardthen updateDisplay the userLevel -- set display to match userLevelpass openCard -- so others can use the messageend openCardon updateDisplay whatLevelglobal UserNamelock screenset cursor to watchset cantAbort of this stack to trueset the userLevel to whatLevelput min(whatLevel,3) into whatLevelif UserName is not empty then put UserName into cd field "User Name"put whatLevel into cd field "User Level" -- hidden on this cardset top of cd btn "Arrow" to top of cd btn ("UserLevel" && whatLevel)repeat with count = 1 to 3put "UserLevel" && count into btnNameset hilite of cd btn btnName to not (count > whatLevel)end repeatset visible of card btn id 3 to whatLevel ≥ 3 -- Power Keysset hilite of card btn id 3 to the powerKeysset visible of card btn id 2 to whatLevel ≥ 2 -- Arrow keys in textset hilite of card btn id 2 to the textArrowsunlock screenset cantAbort of this stack to falseend updateDisplay</script>
</card>
card_3090.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>HyperCard uses the information in the field below to find your documents.</text>
</content>
<content>
<layer>background</layer>
<id>53</id>
<text>This field will be a shared field when the time is right. In the meantime, I didn't want to copy the same text into this bkgnd field because I was afraid I might forget to make this a shared field later. See this field on the "stacks" card for the real info.Consider this feature "under construction"</text>
</content>
<content>
<layer>background</layer>
<id>49</id>
<highlight> <true /> </highlight>
</content>
<name>documents</name>
<script></script>
</card>
card_3517.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>HyperCard uses the information in the field below to find your applications.</text>
</content>
<content>
<layer>background</layer>
<id>53</id>
<text>This field will be a shared field when the time is right. In the meantime, I didn't want to copy the same text into this bkgnd field because I was afraid I might forget to make this a shared field later. See this field on the "stacks" card for the real info.Consider this feature "under construction"</text>
</content>
<content>
<layer>background</layer>
<id>50</id>
<highlight> <true /> </highlight>
</content>
<name>applications</name>
<script></script>
</card>
card_2376.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>Each line on this card indicates the location of a folder, including the disk name (and folder name, and subfolder names, if appropriate). These locations are called search paths. Each name in a search path is separated by a colon. When you tell HyperCard to open a stack, document, or application, it looks for the file you want by searching through the folders listed on this card. If HyperCard can’t find the file, it displays the directory dialog box. Once you’ve located the file, HyperCard records the file’s location on this card. The next time you ask for the file, HyperCard will know where to look for it. You can type folder locations on this card to tell HyperCard where to look for your files, for example: my disk:hypercard folder:my stacks:</text>
</content>
<content>
<layer>background</layer>
<id>48</id>
<highlight> <true /> </highlight>
</content>
<content>
<layer>background</layer>
<id>37</id>
<text>HyperCard uses the information in the field below to find your stacks.</text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text>Dev.CD May 93:Utilities:</text>
</content>
<name>stacks</name>
<script></script>
</card>
card_3916.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style36">elcome to the HyperCard Player!</span><span class="style37">The HyperCard® Player enables you to run applications created with Claris® HyperCard. HyperCard applications, or “stacks”, are interactive documents which can incorporate text, graphics, animation, audio and video. To take full advantage of the powerful authoring capabilities of HyperCard, you can purchase the HyperCard Development Kit through an authorized Claris dealer. The HyperCard Development Kit contains the HyperCard software, a complete set of manuals, sample files, and pre-scripted objects and tools to help you create software quickly.With the HyperTalk® scripting language, you can: • Create software in a fraction of the time it takes with traditional programming tools. • Create interactive presentations using text, graphics, QuickTime movies and sound. • Build friendly interfaces to data stored in remote databases, on CD-ROM drives, or on video laserdiscs. • Author educational courseware and computer- based learning tools. • Customize applications for software solutions that meet YOUR needs.</span><span class="style29"> HyperCard and HyperTalk are registered trademarks of Claris Corporation. QuickTime is a trademark of Apple Computer, Inc.</span></text>
.dmg/System Utilities/Home/Home/BMAP_4483.png){kind=link}
.dmg/System Utilities/Home/Home/PATs.png){kind=link}